; 3.10 our-member-if
(defun our-member-if (fn lst)
	(and (consp lst)
			 (if (funcall fn (car lst))
				 lst
				 (our-member-if fn (cdr lst)))))

(setf lst1 '((2 3) (2 4) (4 5) (1 3) (2 3)))


(format t "~A has a odd number : ~A~%" lst1 (our-member-if #'oddp lst1))
